home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / p_pascal.zip / SAMPLES / PRFNPARM.PAS < prev    next >
Pascal/Delphi Source File  |  1990-03-10  |  921b  |  50 lines
  1. {$c+,y+}
  2. program prfnparm;
  3. const vert_bar = #240;
  4.       horz_bar = #254;
  5. procedure writer(procedure pen(var arg : text));
  6. begin
  7.  pen(Output)
  8. end;
  9. procedure writex(var pfp : text);
  10. begin
  11.  write(pfp,vert_bar)
  12. end;
  13. procedure writey(var pfp : text);
  14. begin
  15.  write(pfp,horz_bar)
  16. end;
  17. procedure wrln(var pfp : text);
  18. begin
  19.  writeln(pfp)
  20. end;
  21. procedure trig (function trigfun(arg : real) : real);
  22. var i, j, k : real;
  23.     l : integer;
  24.     break : boolean;
  25. begin
  26.  i := 0.0; l := 0; break := false;
  27.  while not break and (i < 10.0) do
  28.   begin
  29.    l := succ(l); k := trigfun(i) + 1.1; j := 0.0;
  30.    if k > 8.0 then break := true
  31.    else
  32.     begin
  33.      while j < k do
  34.       begin
  35.        if odd(l) then writer(writex) else writer(writey);
  36.        j := j + 0.1
  37.       end;
  38.      writer(wrln);
  39.      i := i + 0.35
  40.     end
  41.   end;
  42.  writer(wrln)
  43. end;
  44. begin
  45.  trig(sin);
  46.  trig(cos);
  47.  trig(exp)
  48. end.
  49.  
  50.